O8899(SURFACE 0-90 DEG FULL FILLET RAD. S/R PART)
(ABSOLUTE SURFACING MACRO)
(WITH ROTATION)
(START OF TANGENT/ TOP OF RAD.)
(END OF TANGENT/ END OF RAD.)
(WORKS)

(FORMAT G65/G66 BCDTXYHVSKRZF)
(B = #2 - G68 ROTATION FROM 0 DEGREES)
(C = #3 - CUSP HEIGHT/ DEG. OF ROTATION) 
(D = #7 - TOOL DIAMETER)
(T = #20 - TOOL RADIUS/ BALL OR BULL)
(X = #24 - FINAL SIZE -X- DIM.)
(Y = #25 - FINAL SIZE -Y- DIM.)
(H = #11 - WIDTH OF STOCK/ HORIZONTAL)
(V = #22 - HEIGHT OF STOCK/ VERTICAL)
(S = #19 - PART CORNER RAD./ SIDES)
(K = #6 - PART FILLET RAD.)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(F = #9 - FEEDRATE) 
(*********************************)

IF[#20GE#6]GOTO1000
#100=0
#101=#6-#20
#102=#3
IF[#102GT15.]THEN#102=15.
#102=ROUND[90./#102]
#102=90./#102
#103=#5001
#104=[#103-.1]-[[#7/2]+[#11/2]]
#105=#5002
#115=[#105+.1]+[[#7/2]+[#22/2]]
#121=#103+[[#24/2]-#19]
#131=#105+[[#25/2]-#19]
#122=#103-[[#24/2]-#19]
#132=#105+[[#25/2]-#19]
#123=#103-[[#24/2]-#19]
#133=#105-[[#25/2]-#19]
#124=#103+[[#24/2]-#19]
#134=#105-[[#25/2]-#19]
#107=#19+#6
IF[#7EQ[#20*2]]GOTO1
#107=#107+[[#7/2]-#20]
#530=#2
IF[#2GT180.]THEN#530=#2-360.
G68R#530
N1G0G90X#104Y#115
Z[#26+.1]
G1Z[#26-#20]F#9
#106=#5003
WHILE[#100LE90.]DO1
IF[#100GT90.]GOTO100
#117=#107
#107=#107-[COS[#100]*[#101]]
#108=#106-[SIN[#100]*[#101]]
#100=#100+#102
G1Z#108F#9
G41Y[#132+#107]
X#121
G02X[#121+#107]Y#131J-#107F[#9/2]
G1Y#134F#9
G02X#124Y[#134-#107]I-#107F[#9/2]
G1X#123F#9
G02X[#123-#107]Y#133J#107F[#9/2]
G1Y#132F#9
G02X#122Y[#132+#107]I#107F[#9/2]
G03X[#122+.1]Y[[#132+#107]+.1]J.1
G0Z[#108+.1]
G40X#104
#107=#117
END1
N100G0G90Z#18
G69
X#103Y#105
M99
N1000#3000= 1( TOOL RADIUS TOO BIG )